source(here::here("code/load.R"))

here("data/meta_analyses_raw/MatKnoValHopSik2019/Cross-Cutting_aggregated.sav") |>
    read_spss() |>
    mutate(meta_id = "MatKnoValHopSik2019",
           study_id = NA,
           subfield = "CP",
           question = "Is across-cutting exposure a positive or negative predictor of political participation?",
           estimate = Effect_size_rz,
           std.error = sqrt(Variance),
           overall_effect = "yes") |>
    select(meta_id,
           study_id,
           subfield,
           question,
           estimate,
           std.error,
           overall_effect) |>
    write_csv(here("data/meta_analyses_clean/MatKnoValHopSik2019.csv"))
